home *** CD-ROM | disk | FTP | other *** search
/ The Epic Collection 3 / Epic Collection 3, The (1997)(Epic Marketing)[!].iso / applications / amigabase / arexx / simple_list.rexx < prev   
OS/2 REXX Batch file  |  1996-09-08  |  561b  |  32 lines
  1. /* Program to list the names of everyone on the current project. */
  2.  
  3. /* Make sure AB is running. */
  4. if ~show(PORTS, 'AB_AREXX') then do
  5.     say 'AB is not currently running!  Please start it and try again.'
  6.     exit
  7.     end
  8.  
  9. address 'AB_AREXX'
  10.  
  11. options results
  12.  
  13. END = 0
  14.  
  15. /* Go to the first entry. */
  16. 'FIRST_ENTRY'
  17.  
  18. /* Continue until we have reached the end of the project. */
  19. do while END = 0
  20.  
  21.     /* Print the name of this entry. */
  22.     'GET_ENTRY_DETAILS 1'
  23.     say 'Name: 'RESULT
  24.  
  25.     /* Go to the next entry. */
  26.     'NEXT_ENTRY'
  27.     END = RC
  28.  
  29.     end
  30.  
  31. exit
  32.